#!/usr/bin/perl

my $str ="truong xuan thung";

$str =~ s/thung/danh/g;

print "str =" . $str;


